; Music of Metropolis (1989) (Topo Soft) (Gorinolas)
; Ripped by Megachur the 29/03/2008

	write "METROPOL.BIN"

music_date_rip	equ &1d38
music_adr	equ &4ef5
first_theme	equ 0
last_theme	equ 0

	read "music_header_v1_0.asm"

;#4ef5
	push af		; music interrupt
	push bc
	ld bc,#f500
	in a,(c)
	bit 0,a
	jr z,l4f0b
	push hl
	push de
	push ix
	call l4f2e	; play music
	pop ix
	pop de
	pop hl
.l4f0b
	pop bc
	pop af
	ei
	ret
;
.l4f0f
;
	push af
	push de
	ld de,#002e
	call l52d0
	ld de,l542a
	add hl,de
	push hl
	xor a
	ld b,#2e
.l4f1f
	ld (hl),a
	inc hl
	djnz l4f1f
	pop hl
	pop de
	ld (hl),e
	inc hl
	ld (hl),d
	inc hl
	ld (hl),e
	inc hl
	ld (hl),d
	pop af
	ret
;
.play_music
.l4f2e
;
	push af
	ld b,#03
	xor a
	ld ix,l542a
	ld de,l541f
	ld hl,l5427
.l4f3c
	push af
	push hl
	push de
	push bc
	ld (l541d),a
	ld a,(ix+#04)
	or (ix+#05)
	jp nz,l4fa7
	xor a
	call l5271
	ld c,(ix+#02)
	ld b,(ix+#03)
	ld a,b
	or c
	jp z,l5060
.l4f5b
	ld a,(bc)
	cp #80
	jp c,l4f6a
	sub #80
	ld hl,l53ff
	call l52ff
	jp (hl)
.l4f6a
	push af
	call l52c5
	pop af
	add (hl)
	ld hl,l533f
	call l52ff
	ld (ix+#0a),l
	ld (ix+#0b),h
	inc bc
.l4f7d
	ld a,(ix+#08)
	call l5271
	call l50dc
	ld (ix+#2a),#00
	call l50f4
	ld (ix+#2b),#00
	ld (ix+#2c),#00
.l4f95
	ld (ix+#02),c
	ld (ix+#03),b
	ld l,(ix+#06)
	ld h,(ix+#07)
	ld (ix+#04),l
	ld (ix+#05),h
.l4fa7
	ld l,(ix+#04)
	ld h,(ix+#05)
	dec hl
	ld (ix+#04),l
	ld (ix+#05),h
	push ix
	pop iy
	ld d,#02
	ld c,#00
.l4fbc
	ld a,(iy+#0c)
	or a
	jr z,l4fc9
	dec a
	ld (iy+#0c),a
	inc c
	jr l4fea
.l4fc9
	ld a,(iy+#0e)
	or a
	jr z,l4fe5
	dec a
	ld (iy+#0e),a
	ld a,(ix+#2a)
	add (iy+#1b)
	ld (ix+#2a),a
	ld a,(iy+#20)
	ld (iy+#0c),a
	inc c
	jr l4fea
.l4fe5
	inc iy
	dec d
	jr nz,l4fbc
.l4fea
	ld a,c
	or a
	jr nz,l4ff5
	bit 0,(ix+#2d)
	call nz,l50dc
.l4ff5
	push ix
	pop iy
	ld d,#03
	ld c,#00
.l4ffd
	ld a,(iy+#10)
	or a
	jr z,l500a
	dec a
	ld (iy+#10),a
	inc c
	jr l5055
.l500a
	ld a,(iy+#13)
	or a
	jr z,l5050
	dec a
	ld (iy+#13),a
	ld a,(iy+#1d)
	or a
	jp p,l5034
	ld a,(iy+#1d)
	cpl
	inc a
	ld e,a
	ld a,(ix+#2b)
	sub e
	ld (ix+#2b),a
	ld a,(ix+#2c)
	sbc #00
	and #0f
	ld (ix+#2c),a
	jr l5047
.l5034
	ld a,(ix+#2b)
	add (iy+#1d)
	ld (ix+#2b),a
	ld a,(ix+#2c)
	adc #00
	and #0f
	ld (ix+#2c),a
.l5047
	ld a,(iy+#22)
	ld (iy+#10),a
	inc c
	jr l5055
.l5050
	inc iy
	dec d
	jr nz,l4ffd
.l5055
	ld a,c
	or a
	jr nz,l5060
	bit 1,(ix+#2d)
	call nz,l50f4
.l5060
	pop bc
	pop de
	pop hl
	ld a,(ix+#09)
	add (ix+#2a)
	and #0f
	ld (hl),a
	ld a,(ix+#0a)
	add (ix+#2b)
	ld (de),a
	inc de
	ld a,(ix+#0b)
	adc (ix+#2c)
	ld (de),a
	inc de
	push de
	ld de,#002e
	add ix,de
	pop de
	pop af
	inc a
	inc hl
	dec b
	jp nz,l4f3c
	ld iy,l54b4
	ld d,#02
	ld c,#00
.l5092
	ld a,(iy+#00)
	or a
	jr z,l509f
	dec a
	ld (iy+#00),a
	inc c
	jr l50c0
.l509f
	ld a,(iy+#02)
	or a
	jr z,l50bb
	dec a
	ld (iy+#02),a
	ld a,(l54c0)
	add (iy+#06)
	ld (l54c0),a
	ld a,(iy+#08)
	ld (iy+#00),a
	inc c
	jr l50c0
.l50bb
	inc iy
	dec d
	jr nz,l5092
.l50c0
	ld a,c
	or a
	jr nz,l50cc
	ld a,(l54be)
	bit 2,a
	call nz,l510c
.l50cc
	ld a,(l54bf)
	ld e,a
	ld a,(l54c0)
	add e
	ld (l5425),a
	call l530c
	pop af
	ret
.l50dc
	push ix
	ld d,#02
.l50e0
	ld a,(ix+#20)
	ld (ix+#0c),a
	ld a,(ix+#16)
	ld (ix+#0e),a
	inc ix
	dec d
	jr nz,l50e0
	pop ix
	ret
.l50f4
	ld d,#03
	push ix
.l50f8
	ld a,(ix+#22)
	ld (ix+#10),a
	ld a,(ix+#18)
	ld (ix+#13),a
	inc ix
	dec d
	jr nz,l50f8
	pop ix
	ret
.l510c
	ld d,#02
	push iy
	ld iy,l54b4
.l5114
	ld a,(iy+#08)
	ld (iy+#00),a
	ld a,(iy+#04)
	ld (iy+#02),a
	inc iy
	dec d
	jr nz,l5114
	pop iy
	ret
.l5128
	inc bc
	ld a,(bc)
	ld (ix+#09),a
	inc bc
	jp l4f5b
.l5131
	inc bc
	ld a,(bc)
	ld de,(l541e)
	ld d,#00
	call l52d0
	ld (ix+#06),l
	ld (ix+#07),h
	inc bc
	jp l4f5b
.l5146
	inc bc
	ld a,(bc)
	and #09
	ld (ix+#08),a
	inc bc
	jp l4f5b
.l5151
	push ix
	pop hl
	xor a
	ld b,#2e
.l5157
	ld (hl),a
	inc hl
	djnz l5157
	ld a,(l541d)
	ld hl,l54c1
	xor (hl)
	jp nz,l5060
	ld hl,l54b4
	ld de,l54b5
	ld bc,#000a
	ld (hl),a
	ldir
	inc de
	ld (de),a
	jp l5060
.l5176
	inc bc
	ld a,(bc)
	push bc
	ld de,#0010
	call l52d0
	ld bc,#0bb8
	push hl
	pop de
	call l52e5
	ld a,c
	ld (l541e),a
	pop bc
	inc bc
	jp l4f5b
.l5190
	inc bc
	ld a,(bc)
	push af
	and #1f
	ld (l54bf),a
	call l510c
	pop af
	inc bc
	or a
	jp m,l4f5b
	jp l4f7d
.l51a4
	inc bc
	jp l4f95
.l51a8
	ld c,(ix+#00)
	ld b,(ix+#01)
	ld (ix+#02),c
	ld (ix+#03),b
	jp l4f5b
.l51b7
	inc bc
	ld a,(bc)
	inc bc
	ld de,#0000
.l51bd
	push af
	ld a,(bc)
	push de
	ld de,(l541e)
	ld d,#00
	call l52d0
	pop de
	add hl,de
	ex de,hl
	inc bc
	pop af
	dec a
	jr nz,l51bd
	ld (ix+#06),l
	ld (ix+#07),h
	jp l4f5b
.l51da
	inc bc
	ld a,(bc)
	ld e,a
	or (ix+#2d)
	ld (ix+#2d),a
	ld a,(l54be)
	or e
	ld (l54be),a
	inc bc
	jp l4f5b
.l51ee
	inc bc
	res 0,(ix+#2d)
	res 1,(ix+#2d)
	ld a,(bc)
	ld de,#000f
	call l52d0
	ld de,l54cb
	add hl,de
	push ix
	ld d,#0f
.l5206
	ld a,(hl)
	ld (ix+#16),a
	inc hl
	inc ix
	dec d
	jp nz,l5206
	pop ix
	inc bc
	ld (ix+#0c),#00
	ld (ix+#0d),#00
	ld (ix+#10),#00
	ld (ix+#11),#00
	ld (ix+#12),#00
	ld (ix+#2a),#00
	ld (ix+#2b),#00
	ld (ix+#2c),#00
	jp l4f5b
.l5237
	inc bc
	ld a,(l54be)
	res 2,a
	ld (l54be),a
	ld a,(bc)
	ld de,#0006
	call l52d0
	ld de,l5570
	add hl,de
	ld iy,l54b4
	ld (iy+#00),#00
	ld (iy+#01),#00
	ld d,#06
.l5259
	ld a,(hl)
	ld (iy+#04),a
	inc hl
	inc iy
	dec d
	jr nz,l5259
	xor a
	ld (l54c0),a
	inc bc
	ld a,(l541d)
	ld (l54c1),a
	jp l4f5b
.l5271
	push de
	cpl
	ld e,a
	ld d,#09
	ld a,(l541d)
.l5279
	dec a
	jp m,l5284
	scf
	rl e
	sla d
	jr l5279
.l5284
	ld a,(l5426)
	or d
	and e
	ld (l5426),a
	pop de
	ret
.l528e
	ld a,(l541d)
	inc bc
	add a
	ld l,a
	ld h,#00
	ld a,(bc)
	inc bc
	ld de,l54c2
	add hl,de
	ld (hl),c
	inc hl
	ld (hl),b
	ld hl,l557c
	call l52ff
	ld b,h
	ld c,l
	jp l4f5b
.l52aa
	ld a,(l541d)
	add a
	ld l,a
	ld h,#00
	ld de,l54c2
	add hl,de
	ld c,(hl)
	inc hl
	ld b,(hl)
	jp l4f5b
.l52bb
	inc bc
	call l52c5
	ld a,(bc)
	inc bc
	ld (hl),a
	jp l4f5b
.l52c5
	ld a,(l541d)
	ld l,a
	ld h,#00
	ld de,l54c8
	add hl,de
	ret
.l52d0
	ld hl,#0000
	and a
	ret z
	push bc
	ld b,#08
.l52d8
	srl a
	jr nc,l52dd
	add hl,de
.l52dd
	sla e
	rl d
	djnz l52d8
	pop bc
	ret
.l52e5
	push af
	ld hl,#0000
	ld a,b
	ld b,#10
.l52ec
	rl c
	rla
	adc hl,hl
	sbc hl,de
	jr nc,l52f6
	add hl,de
.l52f6
	ccf
	djnz l52ec
	rl c
	rla
	ld b,a
	pop af
	ret
.l52ff
	push af
	add a
	add l
	ld l,a
	jr nc,l5306
	inc h
.l5306
	ld a,(hl)
	inc hl
	ld h,(hl)
	ld l,a
	pop af
	ret
.l530c
	ld b,#f7
	ld c,#82
	out (c),c
	ld hl,l541f
	ld a,#00
	ld d,#0b
.l5319
	push af
	ld c,(hl)
	ld b,#f4
	out (c),a
	ld b,#f6
	in a,(c)
	or #c0
	out (c),a
	and #3f
	out (c),a
	ld b,#f4
	out (c),c
	ld b,#f6
	ld c,a
	or #80
	out (c),a
	out (c),c
	pop af
	inc a
	inc hl
	dec d
	jr nz,l5319
	ret
.l533f
	dw #0eee,#0e18,#0d4d,#0c8e
	dw #0bda,#0b2f,#0a8f,#09f7
	dw #0968,#08e1,#0861,#07e9
	dw #0777,#070c,#06a7,#0647
	dw #05ed,#0598,#0547,#04fc
	dw #04b4,#0470,#0431,#03f4
	dw #03bc,#0386,#0353,#0324
	dw #02f6,#02cc,#02a4,#027e
	dw #025a,#0238,#0218,#01fa
	dw #01de,#01c3,#01aa,#0192
	dw #017b,#0166,#0152,#013f
	dw #012d,#011c,#010c,#00fd
	dw #00ef,#00e1,#00d5,#00c9
	dw #00be,#00b3,#00a9,#009f
	dw #0096,#008e,#0086,#007f
	dw #0077,#0071,#006a,#0064
	dw #005f,#0059,#0054,#0050
	dw #004b,#0047,#0043,#003f
	dw #003c,#0038,#0035,#0032
	dw #002f,#002d,#002a,#0028
	dw #0026,#0024,#0022,#0020
	dw #001e,#001c,#001b,#0019
	dw #0018,#0016,#0015,#0014
	dw #0013,#0012,#0011,#0010
.l53ff
	dw l5128,l5146,l51a8,l5131
	dw l51a4,l5176,l51b7,l51ee
	dw l5190,l5237,l51da,l5151
	dw l528e,l52aa,l52bb
.l541f equ $ + 2
.l541e equ $ + 1
.l541d
	db #43,#30,#43,#30,#43,#30,#43,#30
.l542a equ $ + 5
.l5427 equ $ + 2
.l5426 equ $ + 1
.l5425
	db #43,#30,#43,#30,#43,#36,#34,#30
	db #43,#30,#43,#34,#43,#30,#43,#30
	db #43,#30,#43,#30,#43,#0d,#0a,#09
	db #48,#45,#58,#20,#36,#34,#30,#43
	db #30,#43,#30,#43,#38,#43,#30,#43
	db #30,#43,#30,#43,#38,#43,#30,#43
	db #30,#43,#30,#43,#30,#43,#30,#43
	db #30,#43,#30,#43,#30,#43,#30,#43
	db #30,#43,#30,#43,#30,#43,#30,#43
	db #30,#43,#30,#43,#30,#43,#30,#43
	db #30,#43,#30,#43,#30,#43,#30,#43
	db #30,#43,#30,#43,#0d,#0a,#09,#48
	db #45,#58,#20,#30,#43,#30,#43,#30
	db #43,#30,#43,#30,#43,#30,#43,#30
	db #43,#30,#43,#30,#43,#30,#43,#30
	db #43,#30,#43,#30,#43,#30,#43,#30
	db #43,#30,#43,#30,#43,#30,#43,#30
.l54b4 equ $ + 7
	db #43,#30,#43,#30,#43,#30,#43,#30
.l54b5
	db #43,#30,#43,#30,#43,#30,#43,#30
.l54c2 equ $ + 5
.l54c1 equ $ + 4
.l54c0 equ $ + 3
.l54bf equ $ + 2
.l54be equ $ + 1
	db #43,#30,#43,#30,#43,#30,#43,#30
.l54cb equ $ + 6
.l54c8 equ $ + 3
	db #43,#30,#43,#0d,#0a,#09,#00,#0f
	db #00,#00,#00,#00,#ff,#00,#00,#00
	db #00,#02,#00,#00,#00,#0a,#00,#00
	db #00,#00,#ff,#00,#00,#00,#00,#01
	db #00,#00,#00,#00,#06,#00,#1e,#00
	db #00,#ff,#00,#1e,#00,#00,#02,#00
	db #01,#00,#00,#01,#01,#00,#00,#00
	db #04,#fc,#00,#00,#00,#01,#01,#00
	db #00,#00,#01,#01,#01,#01,#00,#04
	db #fc,#02,#fe,#00,#01,#01,#01,#01
	db #00,#01,#01,#14,#01,#00,#00,#f1
	db #00,#00,#00,#03,#01,#00,#00,#00
	db #07,#00,#01,#01,#00,#ff,#00,#01
	db #ff,#00,#02,#00,#01,#01,#00,#01
	db #01,#01,#01,#00,#01,#fd,#00,#00
	db #00,#01,#01,#01,#01,#00,#08,#08
	db #00,#00,#00,#01,#ff,#e2,#0a,#00
	db #06,#06,#04,#04,#00,#01,#01,#00
	db #00,#00,#fe,#02,#00,#00,#00,#01
	db #01,#00,#00,#00,#08,#0f,#50,#00
	db #00,#01,#ff,#ff,#00,#00,#06,#09
.l5570 equ $ + 3
	db #08,#00,#00,#0a,#0f,#02,#00,#14
	db #00,#1e,#00,#f7,#00,#01,#00
.l557c
	dw l55a6,l55cf,l55fc,l5635
	dw l564e,l5679,l56c1,l5709
	dw l5751,l577d,l55a6,l55a6
	dw l55a6,l55a6,l55a6,l55a6
	dw l55a6,l55a6,l55a6,l55a6
	dw l55a6
.l55a6
	db #87,#01,#81,#01,#8a,#00,#80,#0c
	db #83,#08,#15,#80,#0a,#15,#21,#15
	db #80,#0c,#15,#80,#0a,#1f,#15,#15
	db #80,#0c,#1d,#80,#0a,#15,#15,#1a
	db #80,#0c,#15,#80,#0a,#18,#1c,#1f
.l55cf equ $ + 1
	db #8d,#87,#00,#81,#01,#8a,#00,#80
	db #09,#83,#08,#21,#1f,#21,#84,#24
	db #84,#21,#84,#21,#1f,#21,#26,#84
	db #83,#18,#21,#83,#08,#21,#1f,#21
	db #24,#21,#24,#26,#24,#26,#28,#2b
.l55fc equ $ + 6
	db #2d,#2b,#2d,#30,#32,#8d,#87,#01
	db #81,#01,#8a,#00,#80,#0c,#83,#08
	db #15,#80,#0a,#15,#81,#09,#21,#81
	db #01,#15,#80,#0c,#15,#80,#0a,#1f
	db #81,#09,#15,#81,#01,#15,#80,#0c
	db #1d,#80,#0a,#15,#81,#09,#15,#81
	db #01,#1a,#80,#0c,#15,#80,#0a,#18
.l5635 equ $ + 7
	db #81,#09,#1c,#1f,#81,#01,#8d,#87
	db #01,#81,#01,#8a,#00,#80,#0d,#1d
	db #1d,#1d,#84,#1d,#84,#1d,#1d,#1f
	db #1f,#1f,#1f,#1f,#1f,#1f,#84,#8d
.l564e
	db #87,#01,#81,#01,#8a,#00,#80,#0a
	db #83,#08,#1c,#1f,#23,#26,#1f,#23
	db #26,#2b,#17,#1a,#1f,#1a,#1f,#23
	db #1f,#23,#1d,#24,#2b,#24,#1d,#24
	db #2b,#24,#1f,#26,#2d,#26,#1f,#26
.l5679 equ $ + 3
	db #2d,#26,#8d,#87,#08,#81,#01,#8a
	db #00,#80,#07,#83,#60,#21,#87,#03
	db #81,#01,#83,#01,#80,#08,#25,#26
	db #27,#83,#05,#28,#83,#08,#26,#24
	db #21,#87,#04,#8a,#03,#81,#01,#83
	db #18,#24,#87,#03,#8a,#00,#81,#01
	db #83,#08,#26,#83,#20,#84,#83,#08
	db #87,#07,#81,#01,#80,#0b,#8a,#03
	db #2d,#2b,#2b,#2b,#2b,#2d,#80,#08
.l56c1 equ $ + 3
	db #2b,#2d,#8d,#87,#08,#81,#01,#8a
	db #00,#80,#07,#83,#60,#21,#87,#03
	db #81,#01,#83,#01,#80,#08,#1c,#1d
	db #1e,#83,#05,#1f,#83,#08,#21,#1f
	db #21,#87,#04,#8a,#03,#81,#01,#83
	db #18,#24,#87,#03,#8a,#00,#81,#01
	db #83,#08,#24,#83,#20,#84,#83,#08
	db #87,#07,#81,#01,#80,#0b,#8a,#03
	db #2d,#2b,#2b,#2b,#2b,#2d,#80,#08
.l5709 equ $ + 3
	db #2b,#2d,#8d,#87,#08,#81,#01,#8a
	db #00,#80,#07,#83,#60,#21,#87,#03
	db #81,#01,#83,#01,#80,#08,#25,#26
	db #27,#83,#05,#28,#83,#08,#26,#24
	db #21,#87,#04,#8a,#03,#81,#01,#83
	db #18,#24,#87,#03,#8a,#00,#81,#01
	db #83,#08,#21,#83,#20,#84,#83,#08
	db #87,#07,#81,#01,#80,#0a,#8a,#03
	db #2b,#2d,#28,#2b,#26,#28,#80,#08
.l5751 equ $ + 3
	db #26,#28,#8d,#87,#07,#81,#01,#80
	db #0b,#8a,#03,#83,#10,#28,#24,#23
	db #1f,#83,#08,#28,#26,#28,#2b,#2f
	db #30,#2f,#30,#83,#10,#29,#29,#83
	db #08,#29,#83,#10,#29,#2b,#2b,#83
.l577d equ $ + 7
	db #08,#28,#83,#10,#2b,#30,#8d,#87
	db #03,#8a,#00,#81,#01,#80,#08,#83
	db #01,#2a,#2b,#2c,#83,#05,#2d,#83
	db #08,#2b,#28,#2b,#27,#26,#24,#21
	db #87,#04,#8a,#03,#81,#01,#83,#10
	db #26,#87,#03,#8a,#00,#81,#01,#83
	db #04,#24,#84,#83,#08,#21,#1f,#21
	db #24,#26,#27,#26,#24,#27,#26,#24
	db #27,#26,#27,#26,#24,#1f,#21,#24
	db #26,#28,#87,#04,#8a,#03,#81,#01
	db #83,#10,#24,#87,#03,#8a,#00,#81
	db #01,#83,#08,#21,#84,#1f,#21,#84
	db #87,#04,#8a,#03,#81,#01,#83,#18
	db #24,#83,#08,#21,#1c,#1f,#21,#1f
	db #21,#87,#04,#8a,#03,#81,#01,#83
	db #10,#24,#87,#03,#8a,#00,#81,#01
	db #83,#08,#21,#84,#1f,#21,#84,#87
	db #04,#8a,#03,#81,#01,#83,#18,#24
	db #83,#08,#21,#1c,#1f,#21,#1f,#21
	db #26,#24,#84,#26,#24,#84,#26,#29
	db #84,#26,#29,#84,#87,#04,#8a,#03
	db #81,#01,#83,#10,#2b,#87,#03,#8a
	db #00,#81,#01,#83,#08,#2d,#84,#24
	db #26,#29,#2b,#2d,#32,#30,#2d,#30
	db #2d,#2b,#29,#2d,#29,#24,#26,#87
	db #00,#8a,#00,#81,#01,#80,#0d,#21
	db #21,#83,#10,#1c,#1f,#83,#08,#21
	db #1f,#21,#21,#1f,#83,#10,#21,#83
	db #08,#1c,#1a,#1c,#1f,#1f,#1f,#1e
	db #1c,#15,#13,#15,#1b,#1a,#18,#13
	db #83,#10,#15,#84,#8d
;
.init_music	; added by Megachur
;
	ld de,l586b
	xor a
	call l4f0f
	ld de,l58a7
	inc a
	call l4f0f
	ld de,l5890
	inc a
	jp l4f0f
;
.stop_music	; added by Megachur
;
	xor a
	ld de,#0000
	call l4f0f
	inc a
	call l4f0f
	inc a
	jp l4f0f
	
;#586b
.l586b
	db #85,#64,#8e
	db #0c,#8c,#00,#8c,#02,#8c,#02,#8c
	db #02,#8c,#02,#8c,#02,#8e,#11,#8c
	db #02,#8c,#02,#8e,#0c,#8c,#02,#8c
	db #02,#8e,#13,#8c,#02,#8e,#0c,#8c
.l5890 equ $ + 2
	db #03,#82,#85,#64,#8e,#18,#83,#80
	db #84,#84,#8c,#01,#8c,#01,#8e,#1d
	db #8c,#01,#8e,#18,#8c,#01,#8c,#04
.l58a7 equ $ + 1
	db #82,#85,#64,#8e,#18,#83,#80,#84
	db #84,#84,#84,#84,#84,#84,#84,#84
	db #84,#84,#84,#84,#84,#8c,#05,#8c
	db #07,#8e,#1d,#8c,#06,#8e,#18,#8c
	db #07,#8c,#08,#83,#20,#2d,#87,#00
	db #8a,#00,#83,#60,#84,#83,#80,#84
	db #8c,#09,#8c,#08,#87,#00,#80,#0b
	db #81,#01,#8a,#00,#82
;
.game_name
	db "Metropolis",0
.game_year
	db "1989",0
.game_publisher
	db "Topo Soft",0
.music_author
	db "Gorinolas",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
